home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / misc / utilitys / translin.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.9 KB  |  72 lines
  1. 10  REM OUTBYTE 26
  2. 15  PI=3.1416
  3. 20  PRINT"                TRANSMISSION LINE CHARACTERISTIC PROGRAM
  4. 21  PRINT:PRINT:PRINT"                           By Paul Andrusiewicz
  5. 25  PRINT:PRINT," via K2UYH/wa2tif":PRINT
  6. 30  FOR Y=1 TO 4000 : NEXT Y
  7. 40  REM OUTBYTE26
  8. 50  PRINT"  THIS PROGRAM CAN CALCULATE THE VOLTAGE POTENTIAL AT ANY POINT ALONG"
  9. 52  PRINT"   A TRANSMISSION LINE IF CERTIAN PARAMETERS ARE KNOWN ABOUT THE LINE"
  10. 55  PRINT"   ITSELF AND THE SIGNAL BEING APPLIED TO IT"
  11. 60  PRINT
  12. 70  PRINT"   IT IS ALSO POSSIBLE TO HAVE CALCULATED VOLTAGES AT MANY POINTS ALONG         A TRANSMISSION LINE IN HARD COPY OR TABLE-LIKE FORM.":PRINT
  13. 80  INPUT"   HIT RETURN TO BEGIN";U
  14. 90  REM OUTBYTE26
  15. 100  REM INPUT"PRECISION TO HOW MANY PLACES (0 to 9)";P:PRINT
  16. 110  REM IF P>9 THEN P1=9:IF P<0 THEN P1=0
  17. 120  REM PRECISION (P1)
  18. 125  REM IF 0<P<9 THEN P1=P
  19. 130  REM PRINT"PRECISION TO"P1"PLACES":PRINT
  20. 140  INPUT"WOULD YOU LIKE SINGLE OR MULTI-POINT ANALYSIS                           (type 1. for single)/(type 2. for multi-point)";G:PRINT
  21. 150  IF G>2 THEN 140
  22. 160  IF G<1 THEN 140
  23. 170  REM OUTBYTE26
  24. 180  INPUT"INPUT LENTH OF LINE (in meters)";L
  25. 190  IF G=1 THEN 220
  26. 200  INPUT"INPUT THE NUMBERS OF POINTS ALONG THE LINE TO BE CALCULATED";L1
  27. 210  IF G=2 THEN 230
  28. 220  INPUT"INPUT THE POINT ALONG THE LINE TO BE ANALYZED";L1
  29. 230  INPUT"INPUT CHARACTERISTIC IMPEDANCE OF LINE";Z
  30. 240  INPUT"INPUT VELOCITY FACTOR OF LINE";Q
  31. 250  INPUT"INPUT INPUT FREQUENCY";F
  32. 260  INPUT"INPUT (real part) OF LOAD IMPEDANCE THEN THE (J part)";R,R1
  33. 270  INPUT"INPUT VOLTAGE IN (magnatude) THEN (phase angle)";V,V1:PRINT:PRINT
  34. 280  IF G=1 THEN 320 
  35. 290  INPUT"TYPE -GR- FOR GRAPHIC DISPLAY OR HIT RETURN FOR NUMERIC VALUES";L$
  36. 295  REM outbyte26
  37. 300  IF L$="GR" THEN K=2
  38. 310  IF K=2 THEN 340
  39. 320  REM INPUT"DO YOU WANT HARD COPY TO PRINTER ?                                      (make sure printer is on line) (type 2, if yes : RETURN if no)";A:PRINT:PRINT
  40. 330  REM OUTBYTE26
  41. 340  IF K=0 THEN 380
  42. 350  PRINT K,"                      V  O  L  T  A  G  E
  43. 360  PRINT K,"              5   10   15   20   25   30   35   40   45   50   55   60"
  44. 370  PRINT K,"         +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
  45. 380  L2=L1
  46. 390  IF G=2 THEN: FOR L2=(L/L1) TO L STEP(L/L1)
  47. 400  B1=L/(((3E+08)/F)*Q):B2=(L2/L)*B1:B=B2*(2*PI):B3=(B1*2*PI)
  48. 410  A1=ABS(R)*COS(B):A2=R1*(COS(B)):IF A1=0 THEN A1=1
  49. 420  A3=Z*(SIN(B)):A4=A3+A2
  50. 430  A5=R*COS(B3):A6=R1*COS(B3)
  51. 440  A7=Z*SIN(B3):A8=A7+A6
  52. 450  E1=SQR((A1*A1)+(A4*A4)):E2=ATN(A4/A1)
  53. 460  E3=SQR((A5*A5)+(A8*A8)):E4=ATN(A8/A5)
  54. 470  E5=E1/E3:E6=E2-E4
  55. 480  E7=V*E5:E8=(V1*(PI/180))+E6:E8=E8*(180/PI)
  56. 490  REM !'CCCCCCCCCCCCCC###.##'CCC###.##'CCCCCCCCC###.##'CCCCCCCCCCCCCCCCC
  57. 500  PRINT A;"THE VOLTAGE IS";E7;"AT";E8;"DEGREES,";L2;"METERS FROM LOAD"
  58. 510  O=E7+10
  59. 520  IF G=1 THEN 560
  60. 530  REM !###0## 'CC
  61. 540  IF K=0 THEN 560
  62. 550  IF PRINT;L2;"m +";:PRINT K,TAB(O)"*"
  63. 560  IF G=2 THEN:NEXT L2
  64. 570  PRINT ,:PRINT ,:PRINT ,:PRINT :PRINT ,"THE LENTH OF THE LINE WAS";L"METERS"
  65. 580  PRINT ,"THE VELOCITY FACTOR WAS";Q
  66. 590  PRINT ,"THE FREQUENCY WAS";F
  67. 600  PRINT ,"THE INPUT VOLTAGE WAS";V"AT";V1"DEGREES
  68. 610  PRINT ,"THE LOAD VALUE WAS";R"AND A -J- OF";R1:PRINT:PRINT
  69. 620  INPUT" ANOTHER PROBLEM (Y/N)";U$: REM outbyte26
  70. 630  IF U$ = "Y" THEN 140
  71. 640  END
  72.